home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / ghost / gs403src_gs.lha / gs4.03 / ialloc.c < prev    next >
C/C++ Source or Header  |  1995-10-04  |  8KB  |  257 lines
  1. /* Copyright (C) 1993, 1995 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* ialloc.c */
  20. /* Memory allocator for Ghostscript interpreter */
  21. #include "gx.h"
  22. #include "memory_.h"
  23. #include "errors.h"
  24. #include "gsstruct.h"
  25. #include "gxarith.h"            /* for small_exact_log2 */
  26. #include "iref.h"            /* must precede iastate.h */
  27. #include "iastate.h"
  28. #include "ivmspace.h"
  29. #include "store.h"
  30.  
  31. /*
  32.  * Define global and local instances.
  33.  */
  34. gs_dual_memory_t gs_imemory;
  35.  
  36. /* Imported from gsalloc.c */
  37. gs_ref_memory_t *ialloc_alloc_state(P2(gs_memory_t *, uint));
  38.  
  39. #define imem ((gs_ref_memory_t *)mem)
  40.  
  41. /* Initialize the allocator */
  42. void
  43. ialloc_init(gs_memory_t *mem, uint chunk_size, bool level2)
  44. {    gs_ref_memory_t *ilmem = ialloc_alloc_state(mem, chunk_size);
  45.     gs_ref_memory_t *igmem =
  46.         (level2 ?
  47.          ialloc_alloc_state(mem, chunk_size) :
  48.          ilmem);
  49.     gs_ref_memory_t *ismem = ialloc_alloc_state(mem, chunk_size);
  50.     int i;
  51.  
  52.     for ( i = 0; i < countof(gs_imemory.spaces.indexed); i++ )
  53.       gs_imemory.spaces.indexed[i] = 0;
  54.     gs_imemory.space_local = ilmem;
  55.     gs_imemory.space_global = igmem;
  56.     gs_imemory.space_system = ismem;
  57.     gs_imemory.reclaim = 0;
  58.     /* Level 1 systems have only local VM. */
  59.     igmem->space = avm_global;
  60.     ilmem->space = avm_local;    /* overrides if ilmem == igmem */
  61.     igmem->global = ilmem->global = igmem;
  62.     ismem->space = avm_system;
  63.     ialloc_set_space(&gs_imemory, avm_global);
  64. }
  65.  
  66. /* ================ Local/global VM ================ */
  67.  
  68. /* Get the space attribute of an allocator */
  69. uint
  70. imemory_space(gs_ref_memory_t *iimem)
  71. {    return iimem->space;
  72. }
  73.  
  74. /* Select the allocation space. */
  75. void
  76. ialloc_set_space(gs_dual_memory_t *dmem, uint space)
  77. {    gs_ref_memory_t *mem = dmem->spaces.indexed[space >> r_space_shift];
  78.     dmem->current = mem;
  79.     dmem->current_space = mem->space;
  80. }
  81.  
  82. /* Reset the requests. */
  83. void
  84. ialloc_reset_requested(gs_dual_memory_t *dmem)
  85. {    dmem->space_system->gc_status.requested = 0;
  86.     dmem->space_global->gc_status.requested = 0;
  87.     dmem->space_local->gc_status.requested = 0;
  88. }
  89.  
  90. /* ================ Refs ================ */
  91.  
  92. /*
  93.  * As noted in iastate.h, every run of refs has an extra ref at the end
  94.  * to hold relocation information for the garbage collector;
  95.  * since sizeof(ref) % obj_align_mod == 0, we never need to
  96.  * allocate any additional padding space at the end of the block.
  97.  */
  98.         
  99. /* Allocate an array of refs. */
  100. int
  101. gs_alloc_ref_array(gs_ref_memory_t *mem, ref *parr, uint attrs,
  102.   uint num_refs, client_name_t cname)
  103. {    ref *obj;
  104.     /* If we're allocating a run of refs already, use it. */
  105.     if ( mem->cc.rtop == mem->cc.cbot &&
  106.          num_refs < (mem->cc.ctop - mem->cc.cbot) / sizeof(ref)
  107.        )
  108.       {    obj = (ref *)mem->cc.rtop - 1;    /* back up over last ref */
  109.         if_debug4('A', "[a%d:+$ ]%s(%u) = 0x%lx\n", imem->space,
  110.               client_name_string(cname), num_refs, (ulong)obj);
  111.         mem->cc.rcur[-1].o_size += num_refs * sizeof(ref);
  112.           {    ref *end = (ref *)(mem->cc.rtop = mem->cc.cbot +=
  113.                          num_refs * sizeof(ref));
  114.             make_mark(end - 1);
  115.           }
  116.       }
  117.     else
  118.       {    /*
  119.          * Allocate a new run.  We have to distinguish 3 cases:
  120.          *    - Same chunk: pcc unchanged, end == cc.cbot.
  121.          *    - Large chunk: pcc unchanged, end != cc.cbot.
  122.          *    - New chunk: pcc changed.
  123.          */
  124.         chunk_t *pcc = mem->pcc;
  125.         ref *end;
  126.         obj = gs_alloc_struct_array((gs_memory_t *)mem, num_refs + 1,
  127.                         ref, &st_refs, cname);
  128.         if ( obj == 0 )
  129.           return_error(e_VMerror);
  130.         /* Set the terminating ref now. */
  131.         end = (ref *)obj + num_refs;
  132.         make_mark(end);
  133.         /* Set has_refs in the chunk. */
  134.         if ( mem->pcc != pcc || mem->cc.cbot == (byte *)(end + 1) )
  135.           {    /* Ordinary chunk. */
  136.             mem->cc.rcur = (obj_header_t *)obj;
  137.             mem->cc.rtop = (byte *)(end + 1);
  138.             mem->cc.has_refs = true;
  139.           }
  140.         else
  141.           {    /* Large chunk. */
  142.             /* This happens only for very large arrays, */
  143.             /* so it doesn't need to be cheap. */
  144.             chunk_locator_t cl;
  145.             cl.memory = mem;
  146.             cl.cp = mem->clast;
  147.             chunk_locate_ptr(obj, &cl);
  148.             cl.cp->has_refs = true;
  149.           }
  150.       }
  151.     make_array(parr, attrs | mem->space, num_refs, obj);
  152.     return 0;
  153. }
  154.  
  155. /* Resize an array of refs.  Currently this is only implemented */
  156. /* for shrinking, not for growing. */
  157. int
  158. gs_resize_ref_array(gs_ref_memory_t *mem, ref *parr,
  159.   uint new_num_refs, client_name_t cname)
  160. {    uint old_num_refs = r_size(parr);
  161.     uint diff;
  162.     ref *obj = parr->value.refs;
  163.     if ( new_num_refs > old_num_refs || !r_has_type(parr, t_array) )
  164.       return_error(e_Fatal);
  165.     diff = old_num_refs - new_num_refs;
  166.     /* Check for LIFO.  See gs_free_ref_array for more details. */
  167.     if ( mem->cc.rtop == mem->cc.cbot &&
  168.          (byte *)(obj + (old_num_refs + 1)) == mem->cc.rtop
  169.        )
  170.       {    /* Shorten the refs object. */
  171.         ref *end = (ref *)(mem->cc.cbot = mem->cc.rtop -=
  172.                      diff * sizeof(ref));
  173.         if_debug4('A', "[a%d:<$ ]%s(%u) 0x%lx\n", imem->space,
  174.               client_name_string(cname), diff, (ulong)obj);
  175.         mem->cc.rcur[-1].o_size -= diff * sizeof(ref);
  176.         make_mark(end - 1);
  177.       }
  178.     else
  179.       {    /* Punt. */
  180.         if_debug4('A', "[a%d:<$#]%s(%u) 0x%lx\n", imem->space,
  181.               client_name_string(cname), diff, (ulong)obj);
  182.         imem->freed_lost += diff * sizeof(ref);
  183.       }
  184.     r_set_size(parr, new_num_refs);
  185.     return 0;
  186. }
  187.  
  188. /* Deallocate an array of refs.  Only do this if LIFO, or if */
  189. /* the array occupies an entire chunk by itself. */
  190. void
  191. gs_free_ref_array(gs_ref_memory_t *mem, ref *parr, client_name_t cname)
  192. {    uint num_refs = r_size(parr);
  193.     ref *obj = parr->value.refs;
  194.     /*
  195.      * Compute the storage size of the array, and check for LIFO
  196.      * freeing or a separate chunk.  Note that the array might be packed;
  197.      * for the moment, if it's anything but a t_array, punt.
  198.      * The +1s are for the extra ref for the GC.
  199.      */
  200.     if ( !r_has_type(parr, t_array) )
  201.       ;        /* don't look for special cases */
  202.     else if ( mem->cc.rtop == mem->cc.cbot &&
  203.           (byte *)(obj + (num_refs + 1)) == mem->cc.rtop
  204.         )
  205.       {    if ( (obj_header_t *)obj == mem->cc.rcur )
  206.           {    /* Deallocate the entire refs object. */
  207.             gs_free_object((gs_memory_t *)mem, obj, cname);
  208.             mem->cc.rcur = 0;
  209.             mem->cc.rtop = 0;
  210.           }
  211.         else
  212.           {    /* Deallocate it at the end of the refs object. */
  213.             if_debug4('A', "[a%d:-$ ]%s(%u) 0x%lx\n",
  214.                   imem->space, client_name_string(cname),
  215.                   num_refs, (ulong)obj);
  216.             mem->cc.rcur[-1].o_size -= num_refs * sizeof(ref);
  217.             mem->cc.rtop = mem->cc.cbot = (byte *)(obj + 1);
  218.             make_mark(obj);
  219.           }
  220.         return;
  221.       }
  222.     else if ( num_refs >= (mem->large_size / arch_sizeof_ref - 1) )
  223.       {    /* See if this array has a chunk all to itself. */
  224.         /* We only make this check when freeing very large objects, */
  225.         /* so it doesn't need to be cheap. */
  226.         chunk_locator_t cl;
  227.         cl.memory = imem;
  228.         cl.cp = imem->clast;
  229.         if ( chunk_locate_ptr(obj, &cl) &&
  230.              obj == (ref *)((obj_header_t *)(cl.cp->cbase) + 1) &&
  231.              (byte *)(obj + (num_refs + 1)) == cl.cp->cend
  232.            )
  233.           {    /* Free the chunk. */
  234.             if_debug4('a', "[a%d:-$L]%s(%u) 0x%lx\n",
  235.                   imem->space, client_name_string(cname),
  236.                   num_refs, (ulong)obj);
  237.             alloc_free_chunk(cl.cp, imem);
  238.             return;
  239.           }
  240.       }
  241.     /* Punt. */
  242.     if_debug4('A', "[a%d:-$#]%s(%u) 0x%lx\n", imem->space,
  243.           client_name_string(cname), num_refs, (ulong)obj);
  244.     imem->freed_lost += num_refs * sizeof(ref);
  245. }
  246.  
  247. /* Allocate a string ref. */
  248. int
  249. gs_alloc_string_ref(gs_ref_memory_t *mem, ref *psref,
  250.   uint attrs, uint nbytes, client_name_t cname)
  251. {    byte *str = gs_alloc_string((gs_memory_t *)mem, nbytes, cname);
  252.     if ( str == 0 )
  253.       return_error(e_VMerror);
  254.     make_string(psref, attrs | mem->space, nbytes, str);
  255.     return 0;
  256. }
  257.